home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / alias.c < prev    next >
C/C++ Source or Header  |  1992-11-21  |  3KB  |  89 lines
  1. /* alias.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       double precision function alias(anam) >*/
  9. doublereal alias_(anam)
  10. doublereal *anam;
  11. {
  12.     /* Initialized data */
  13.  
  14.     static struct {
  15.     char e_1[112];
  16.     doublereal e_2;
  17.     } equiv_4 = { {'v', 'a', ' ', ' ', ' ', ' ', ' ', ' ', 'v', 'b', ' ', 
  18.         ' ', ' ', ' ', ' ', ' ', 'c', 'c', 's', ' ', ' ', ' ', ' ', 
  19.         ' ', 'n', 's', ' ', ' ', ' ', ' ', ' ', ' ', 'c', '2', ' ', 
  20.         ' ', ' ', ' ', ' ', ' ', 'p', 't', ' ', ' ', ' ', ' ', ' ', 
  21.         ' ', 'c', '4', ' ', ' ', ' ', ' ', ' ', ' ', 'p', 'e', ' ', 
  22.         ' ', ' ', ' ', ' ', ' ', 'm', 'e', ' ', ' ', ' ', ' ', ' ', 
  23.         ' ', 'p', 'c', ' ', ' ', ' ', ' ', ' ', ' ', 'm', 'c', ' ', 
  24.         ' ', ' ', ' ', ' ', ' ', 'p', 's', ' ', ' ', ' ', ' ', ' ', 
  25.         ' ', 'm', 's', ' ', ' ', ' ', ' ', ' ', ' ', 'i', 'k', ' ', 
  26.         ' ', ' ', ' ', ' ', ' '}, 0. };
  27.  
  28. #define anam1 ((doublereal *)&equiv_4)
  29.  
  30.     static struct {
  31.     char e_1[112];
  32.     doublereal e_2;
  33.     } equiv_5 = { {'v', 'a', 'f', ' ', ' ', ' ', ' ', ' ', 'v', 'a', 'r', 
  34.         ' ', ' ', ' ', ' ', ' ', 'c', 'j', 's', ' ', ' ', ' ', ' ', 
  35.         ' ', 'n', 's', 's', ' ', ' ', ' ', ' ', ' ', 'i', 's', 'e', 
  36.         ' ', ' ', ' ', ' ', ' ', 'x', 't', 'i', ' ', ' ', ' ', ' ', 
  37.         ' ', 'i', 's', 'c', ' ', ' ', ' ', ' ', ' ', 'v', 'j', 'e', 
  38.         ' ', ' ', ' ', ' ', ' ', 'm', 'j', 'e', ' ', ' ', ' ', ' ', 
  39.         ' ', 'v', 'j', 'c', ' ', ' ', ' ', ' ', ' ', 'm', 'j', 'c', 
  40.         ' ', ' ', ' ', ' ', ' ', 'v', 'j', 's', ' ', ' ', ' ', ' ', 
  41.         ' ', 'm', 'j', 's', ' ', ' ', ' ', ' ', ' ', 'i', 'k', 'f', 
  42.         ' ', ' ', ' ', ' ', ' '}, 0. };
  43.  
  44. #define anam2 ((doublereal *)&equiv_5)
  45.  
  46.  
  47.     /* System generated locals */
  48.     doublereal ret_val;
  49.  
  50.     /* Local variables */
  51.     static integer iknt;
  52.  
  53. /*<       implicit double precision (a-h,o-z) >*/
  54. /*<       dimension anam1(14),anam2(14) >*/
  55. /*<       data anam1 /3hva ,3hvb ,3hccs,3hns ,3hc2 ,3hpt ,3hc4 , >*/
  56. /*<      1            3hpe ,3hme ,3hpc ,3hmc ,3hps ,3hms ,3hik / >*/
  57. /*<       data anam2 /3hvaf,3hvar,3hcjs,3hnss,3hise,3hxti,3hisc, >*/
  58. /*<      1            3hvje,3hmje,3hvjc,3hmjc,3hvjs,3hmjs,3hikf/ >*/
  59.  
  60. /*  this function returns the mgp equivalent of the gp parameters */
  61. /*  (those which apply) */
  62.  
  63. /*<       iknt=0 >*/
  64.     iknt = 0;
  65. /*<       alias=anam >*/
  66.     ret_val = *anam;
  67. /*<    10 iknt=iknt+1 >*/
  68. L10:
  69.     ++iknt;
  70. /*<       if(iknt.gt.14) return >*/
  71.     if (iknt > 14) {
  72.     return ret_val;
  73.     }
  74. /*<       if(anam1(iknt).ne.anam) go to 10 >*/
  75.     if (anam1[iknt - 1] != *anam) {
  76.     goto L10;
  77.     }
  78. /*<       alias=anam2(iknt) >*/
  79.     ret_val = anam2[iknt - 1];
  80. /*<       return >*/
  81.     return ret_val;
  82. /*<       end >*/
  83. } /* alias_ */
  84.  
  85. #undef anam2
  86. #undef anam1
  87.  
  88.  
  89.